home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / PRINTOUT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.1 KB  |  43 lines
  1. 10  ' **********************
  2. 20  ' **     PRINTOUT     **
  3. 30  ' **********************
  4. 40  '
  5. 50  CLEAR
  6. 60  SCREEN 2
  7. 70  KEY OFF
  8. 80  CLS
  9. 90  DEFINT A-Z
  10. 100  PRINT "************************************************************"
  11. 110  PRINT "**                    PRINTER DRIVER                      **"
  12. 120  PRINT "**     PRINTS A COPY OF THE SCREEN IN BLACK ON WHITE      **"
  13. 130  PRINT "**                  OR WHITE ON BLACK                     **"
  14. 140  PRINT "************************************************************"
  15. 150  PRINT
  16. 160  FILES
  17. 170  PRINT
  18. 180  PRINT "Enter the name of the memory image file to be printed - ";
  19. 190  INPUT FILENAME$
  20. 200  PRINT
  21. 210  PRINT "(1) = Black on white        (2) = Reversed, white on black
  22. 220  K$ = INKEY$
  23. 230  IF K$ = "1" THEN WOB = 0 ELSE IF K$ = "2" THEN WOB = 255 ELSE 220
  24. 240  DEF SEG = &HB800
  25. 250  BLOAD FILENAME$
  26. 260  E$ = CHR$(27)
  27. 270  WIDTH "LPT1:",255
  28. 280  LPRINT E$ + "1"
  29. 290  LPRINT E$ + "W" + CHR$(1)
  30. 300     FOR ROW = 0 TO 79
  31. 310     LPRINT E$ + "K" + MKI$(400) ;
  32. 320        FOR COL = 99 TO 0 STEP -1
  33. 330        LOCA = COL * 80 + ROW
  34. 340        BYTE = PEEK(LOCA + &H2000) XOR WOB
  35. 350        LPRINT CHR$(BYTE) ; CHR$(BYTE) ;
  36. 360        BYTE = PEEK(LOCA) XOR WOB
  37. 370        LPRINT CHR$(BYTE) ; CHR$(BYTE) ;
  38. 380        NEXT COL
  39. 390     LPRINT
  40. 400     NEXT ROW
  41. 410  LPRINT CHR$(12);
  42. 420  END
  43.